home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / egafnt25.arc / EGAFONTS.BAT < prev    next >
DOS Batch File  |  1990-07-08  |  3KB  |  150 lines
  1. ECHO OFF
  2. PUSHDIR
  3. REM C:
  4. REM CD\EGAFONTS
  5. TYPE EGAFONTS.ANS
  6. RESPONSE ABCDEFGHIJKLMNOPQRSTUVWXY90
  7. IF ERRORLEVEL=27 GOTO :END
  8. IF ERRORLEVEL=26 GOTO :OFF
  9. IF ERRORLEVEL=25 GOTO :Y
  10. IF ERRORLEVEL=24 GOTO :X
  11. IF ERRORLEVEL=23 GOTO :W
  12. IF ERRORLEVEL=22 GOTO :V
  13. IF ERRORLEVEL=21 GOTO :U 
  14. IF ERRORLEVEL=20 GOTO :T
  15. IF ERRORLEVEL=19 GOTO :S
  16. IF ERRORLEVEL=18 GOTO :R
  17. IF ERRORLEVEL=17 GOTO :Q
  18. IF ERRORLEVEL=16 GOTO :P
  19. IF ERRORLEVEL=15 GOTO :O
  20. IF ERRORLEVEL=14 GOTO :N
  21. IF ERRORLEVEL=13 GOTO :M
  22. IF ERRORLEVEL=12 GOTO :L
  23. IF ERRORLEVEL=11 GOTO :K
  24. IF ERRORLEVEL=10 GOTO :J
  25. IF ERRORLEVEL=9  GOTO :I
  26. IF ERRORLEVEL=8  GOTO :H
  27. IF ERRORLEVEL=7  GOTO :G
  28. IF ERRORLEVEL=6  GOTO :F
  29. IF ERRORLEVEL=5  GOTO :E
  30. IF ERRORLEVEL=4  GOTO :D
  31. IF ERRORLEVEL=3  GOTO :C
  32. IF ERRORLEVEL=2  GOTO :B
  33. IF ERRORLEVEL=1  GOTO :A
  34. GOTO :END
  35. :OFF
  36. EGAFONT OFF
  37. GOTO :END
  38. :Y
  39. EGAFONT 3270PC.EGA
  40. GOTO :END
  41. :X
  42. EGAFONT 3270-8.EGA
  43. GOTO :END
  44. :W
  45. EGAFONT 3270.EGA
  46. GOTO :END
  47. :V
  48. EGAFONT SIDE10.EGA
  49. GOTO :END
  50. :U
  51. EGAFONT SENAPL.EGA
  52. GOTO :END
  53. :T
  54. EGAFONT SCRIPT.EGA
  55. GOTO :END
  56. :S
  57. EGAFONT PC8.EGA
  58. GOTO :END
  59. :R
  60. EGAFONT PC24.EGA
  61. GOTO :END
  62. :Q
  63. EGAFONT OLDENG.EGA
  64. GOTO :END
  65. :P
  66. EGAFONT OCR.EGA
  67. GOTO :END
  68. :O
  69. EGAFONT LPA.EGA
  70. GOTO :END
  71. :N
  72. EGAFONT ITALICS.EGA
  73. GOTO :END
  74. :M
  75. EGAFONT ITALIC.EGA
  76. GOTO :END
  77. :L
  78. EGAFONT GEORGIAN.EGA
  79. GOTO :END
  80. :K
  81. EGAFONT GAELIC.EGA
  82. GOTO :END
  83. :J
  84. EGAFONT FRAKTUR.EGA
  85. GOTO :END
  86. :I
  87. EGAFONT CNTDOWN.EGA
  88. GOTO :END
  89. :H
  90. EGAFONT APLS11.EGA
  91. GOTO :END
  92. :G
  93. EGAFONT APLS10.EGA
  94. GOTO :END
  95. :F
  96. EGAFONT APLS9.EGA
  97. GOTO :END
  98. :E
  99. EGAFONT APLS8.EGA
  100. GOTO :END
  101. :D
  102. EGAFONT APLS7.EGA
  103. GOTO :END
  104. :C
  105. EGAFONT APLS6.EGA
  106. GOTO :END
  107. :B
  108. EGAFONT APLS.EGA
  109. GOTO :END
  110. :A
  111. EGAFONT APL24.EGA
  112. GOTO :END
  113. :END
  114. POPDIR
  115. REM ═══════════════════════════════════════════════════════════════════════════
  116. REM I created this batch file to make it easier to change EGA screen fonts by
  117. REM listing all of the font options in a menu.  Select the letter of the font
  118. REM to which you wish to change the screen display.  
  119. REM 
  120. REM The menu also contains an option (9) to turn off a previously selected font
  121. REM and return to normal display.  Or you can select option 0 to exit without
  122. REM changing the screen font.
  123. REM 
  124. REM It appears that the screen font selected will be displayed in by all
  125. REM programs that use text display until EGAFONT is turned off or until the
  126. REM PC is re-booted.
  127. REM 
  128. REM The menu is normally displayed in ANSI color graphics.  If you do not wish
  129. REM to use ANSI, substitute EGAFONTS.ASC for EGAFONTS.ANS in the 5th line of 
  130. REM this file.  You can also edit/create your own custom fonts using EGAEDIT.
  131. REM 
  132. REM You might want to place EGAFONT and all the font files in a separate
  133. REM directory on your hard disk as I did and just leave EGAFONTS.BAT in a
  134. REM directory on your normal path.  If you do this, remove the "REM" from 
  135. REM lines 2 and 3 of this file and replace the drive and directory names
  136. REM with your own, if different.
  137. REM 
  138. REM The unrelated files RESPONSE.COM, PUSHDIR.COM, and POPDIR.COM are included
  139. REM for use in this batch file.
  140. REM 
  141. REM Have fun!
  142. REM 
  143. REM                              Marty Shannon
  144. REM                              Laser Printer Conference Sysop
  145. REM                              CooperWorks BBS (Madison, Wi)
  146. REM                              (608)251-7734
  147. REM
  148. REM                              May 9, 1987
  149. REM ═══════════════════════════════════════════════════════════════════════════
  150.